#!/usr/bin/perl

# Definition of perl for loop
for($for_loop=0;$for_loop<=4;$for_loop++) {
       print "for loop value is:".$for_loop."\n";
       } 

$while_loop=5;

# Definition of perl while loop
while ($while_loop>=0) {
       print "while loop value is:".$while_loop."\n";
       $while_loop--;
       } 

$until_loop=5;

# Definition of perl until loop
until ($until_loop==0) {
       print "until loop value is:".$until_loop."\n";
       $until_loop--;
       } 

#Declare array

@foreach_loop = (" Tutorial\n" , " Scripting" , "Perl" ) ;
foreach $count (reverse @foreach_loop) {
    print $count;
    } 

